(show-children): Don't call outline-level at eob.

diff --git a/lisp/textmodes/ooutline.el b/lisp/textmodes/ooutline.el
index c3f05af00bb98746caee9d5f2e2e84132edf15f1..207bffcdf74bf766c09e7847635254d9480623f1 100644 (file)
--- a/lisp/textmodes/ooutline.el
+++ b/lisp/textmodes/ooutline.el
@@ -372,7 +372,9 @@ Default is enough to cause the following heading to appear."
            (beginning-of-line)
            (let ((start-level (funcall outline-level)))
              (outline-next-heading)
-             (max 1 (- (funcall outline-level) start-level))))))
+             (if (eobp)
+                 1
+               (max 1 (- (funcall outline-level) start-level)))))))
   (save-excursion
    (save-restriction
     (beginning-of-line)